home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 1 / 001.d81 / moon lander (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  173 lines
  1. 2 rem greg martens 1983
  2. 3 ex=0
  3. 11 bz=10
  4. 12 poke 53280,0
  5. 14 rw=1531:rz=1764:re=1:te=1:rm=1397:tm=1
  6. 100 data0,24,0,0,24,0,0,60,0,0,126,0,0,90,0,0,90,0,0,219,0,0,195,0
  7. 110 data0,255,0,0,255,0,0,255,0,0,255,0,0,255,0,0,255,0,1,255,128,3,255,192
  8. 120 data3,255,192,15,255,240,40,255,120,56,255,28,49,255,140
  9. 130 data 0
  10. 140 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11. 150 data0,195,0,0,219,0,0,90,0,0,90,0,0,126,0,0,60,0,0,24,0,0,24,0,0,24,0,0,24,0
  12. 151 data   0,24,0,0,24,0,0,24
  13. 160 print chr$(147)
  14. 170 print"[158]              moon  lander[158]              [146]";""
  15. 180 print
  16. 190 print"use joystick in port 2"
  17. 191 print
  18. 210 print"left thrusts left,up thrusts up"
  19. 211 print
  20. 212 print"right thrusts right,down thrusts down"
  21. 220 print
  22. 230 print"watch out for the mines"
  23. 240 print
  24. 250 print"land gently or you'll bounce"
  25. 251 print
  26. 255 print"you get 10 tries,highest possible score"
  27. 256 print"is 10,lowest is -10"
  28. 257 print
  29. 270 forj=0to126: readx:poke832+j,x:nextj
  30. 280 xo=53248:yo=53249:co=53279
  31. 290 x1=53250:y1=53251:e=53269
  32. 300 poke2040,13:poke2041,14
  33. 308 poke 53281,6
  34. 309 poke 53287,1
  35. 310 poke53275,2
  36. 319 poke 53288,2
  37. 320 print"you have a limited amount of fuel"
  38. 321 print"the higher the level the less fuel":gosub 6000
  39. 322 print: print"select skill level (1-5)"
  40. 323 get e$:if e$="" then 323
  41. 324 if e$="2"then  i$="000045"
  42. 325 if e$="3"then  i$="000030"
  43. 326 if e$="4"then  i$="000020
  44. 327 [139] e$[178]"5"[167]  i$[178]"000015"
  45. 328 [139] e$[178]"1"[167]  i$[178]"000060"
  46. 329 [139] e$[177]"5" [176] e$[179]"1"[167]323
  47. 330 [153]:[153]"openpress fire button to startwait"
  48. 331 [153]
  49. 340 [143]
  50. 342 jo[178][194](56320):[139]jo[175]16[167]342
  51. 350 [151] e,0
  52. 370 v[178]75 :h[178]120:vo[178]0:ho[178]0
  53. 380 [151]54296,15:[151]54278,240
  54. 400 [153][199](147)
  55. 401 g[178]31:[129]k[178]1[164]9:x[178]1024[170]g:c[178]55296[170]g:l[178]0:[129]d[178]1[164]25:[151]x[170]l,160:[151]c[170]l,0
  56. 402 l[178]l[170]40:[130]d:g[178]g[170]1:[130]k
  57. 403 [153]"sys          lunar landersys         wait";
  58. 410 [129]j[178]1[164]6 :[153]   :[130]j
  59. 420 [129]j[178]1[164]6 :[129]k[178]1[164]30
  60. 430 c$[178]" ":[139][187](1)[179].1[175](k[179]20[176]k[177]25)[167]c$[178]"sys(NULL)"
  61. 431 [153] c$;:[130]k:[153]:[130]j
  62. 432 [129] j[178]1[164]5:[129]k[178]1[164]30
  63. 433 c$[178]"close":[139][187](1)[179].1[175](k[179]17[176]k[177]21)[167]c$[178]"def#"
  64. 434 [153]c$;:[130]k:[153]:[130]j
  65. 435 [153]:[129]j[178]1[164]4:[129]k[178]1[164]30
  66. 436 c$[178]"close":[139][187](1)[179].1[175](k[179]14[176]k[177]18)[167]c$[178]"list*"
  67. 440 [153]c$;:[130]k:[153]:[130]j
  68. 448 [129] q[178]1984[164]1984[170]30:[151]q,160:[151]q[170]54272,0:[130]q
  69. 450 [129]j[178]1[164]31:[153]"stop=wait" ;:[130]j:[153] "  score";
  70. 451 [153]"cmdcmdcmdcmd";s;"wait";
  71. 452 [143]:print"onononononcmdcmdcmdcmdtries";"cmdcmdcmdcmdcmdleft";"cmdcmdcmdcmd";bz;"wait";
  72. 458 q[178]v[170]50
  73. 460 [151]xo,h:[151]yo,v:[151]x1,h:[151]y1,v
  74. 465 ti$[178]"000000"
  75. 470 k[178][194](203):[161]k$
  76. 471 [139] ti$[177]i$ [167]749
  77. 500 v1[178].1:h1[178]0
  78. 501 eo[178]1: jo[178][194](56320):[139] [168]jo[175]1[167]v1[178][171].5:eo[178]3
  79. 520 [139][168]jo[175]4[167]h1[178][171].2
  80. 530 [139][168]jo[175]8[167]h1[178].2
  81. 531 [139][168]jo[175]2[167]v1[178].5:eo[178]3
  82. 532 [141] 3000
  83. 540 [137]560
  84. 550 [139]k[178]64[167]v1[178].1:h1[178]0:eo[178]1
  85. 560 [139][194](e)[178]eo[137]600
  86. 580 [151]e,eo:[139]eo[178]1[167][151]54276,0:[137]600
  87. 590 [151]54273,8:[151]54276,129
  88. 600 [139]h1[178]h9[137]630
  89. 610 h9[178]h1:k[178][180]([182](h9))[172]129:[151]54273,99:[151]54276,k
  90. 630 vo[178]vo[170]v1:ho[178]ho[170]h1
  91. 650 [139]v[179]50[167]vo[178][182](vo)
  92. 660 [139]h[179]20[167]ho[178][182](ho)
  93. 670 [139]h[177]240[167]ho[178][171][182](ho)
  94. 680 v[178]v[170]vo:h[178]h[170]ho
  95. 700 [151]xo,h:[151]yo,v:[151]x1,h:[151]y1,v[170]10
  96. 710 c[178][194](co):[139](c[175]1)[178]0[137]470
  97. 720 [139]v[177]210[137]780
  98. 730 [139]v[170]vo[179]100[137]470
  99. 748 [137]750
  100. 749 [153][199](19);"outoffuel!":[137]751
  101. 750 [153][199](19);"crashed"
  102. 751 s[178]s[171]1:qw[178]54272:[129]r[178]qw[164]qw[170]24:[151]r,0:[130]:[151]qw[170]24,47:[151]qw[170]5,64[170]7
  103. 752 [151]qw[170]6,240:[151]qw[170]4,129:[151]qw[170]1,36:[151]qw,85
  104. 753 [129]x[178]1[164]30:[151]53287,2:[151]53287,7:[151]53287,8:[151]e,0:[151]e,1:[130]:[151]e,0
  105. 754 [129]z[178]15[164]0[169][171]1:[151]qw[170]24,[181](z):[130]:[151]53287,1:ti$[178]"000000"
  106. 755 [129] x[178]1[164]5:[151] 53280,2:[151]53281,1:[129]z[178]1[164]10:[130]z
  107. 756 [151] 53280,0:[151]53281,6:[129]z[178]1[164]10:[130]z:[130]x
  108. 759 bz[178]bz[171]1
  109. 760 [137]820
  110. 780 [139]vo[177]1[176]vo[179]0[167]vo[178][171][182](vo):[137]470
  111. 790 [153][199](19);"landed!"
  112. 791 [141] 7000:s[178]s[170]1:bz[178]bz[171]1:ti$[178]"000000"
  113. 800 [151]yo,219
  114. 820 [151]54276,0:[151]54296,0
  115. 830 [139] bz[179]1 [167] [137] 1000
  116. 831 v[178]75:h[178]120:vo[178]0:ho[178]0:[151] e,0
  117. 832 [151] 54296,15:[151]54278,240
  118. 833 [129] x[178]1024 [164] 1034:[151]x,32:[130] x
  119. 834 [129] x[178]1104 [164]1120:[151]x,32:[130]x
  120. 835 [137] 403
  121. 1000 [153] "game over"
  122. 1001 [153] "want to play a game?wait":[153]
  123. 1002 bz[178]10:s[178]0
  124. 1003 [151]198,0:[146]198,1:[161]zz$
  125. 1004 [139]zz$[178]"y"[167]330
  126. 1005 [137] 8000:[143] **** end ****
  127. 2000 vv[178]54272:[151]vv[170]6,0:[151]vv[170]5,31:[151]vv[170]1,180:[151]vv[170]4,33
  128. 2001 [129]nn[178]1[164]100:[130]nn
  129. 2002 [151]vv[170]4,0:[137] 1999
  130. 3000 [151] rw,90:[151]rw[170]54272,1:[151] rw[171]re,32:rw[178]rw[170]re:[139] rw[177]1504[170]28[167] re[178][171]1
  131. 3001 [139] rw[179]1506[167] re[178]1
  132. 3002 [151]rz,86:[151]rz[170]54272,7:[151]rz[171]te,32:rz[178]rz[170]te:[139]rz[177]1744[170]28[167]te[178][171]1
  133. 3003 [139]rz[179]1744[170]2[167]te[178]1
  134. 3004 [151]rm,35:[151]rm[170]54272,2:[151]rm[171]tm,32:rm[178]rm[170]tm:[139]rm[177]1384[170]28[167]tm[178][171]1
  135. 3005 [139]rm[179]1384[170]2[167]tm[178]1
  136. 3008 [142]
  137. 6000 [151] 54296,15:[151] 54295,0
  138. 6010 vv[178]54272:[151]vv[170]1,40
  139. 6020 [143] pokevv+6,0:pokevv+5,204:pokevv+4,0:pokevv+4,129
  140. 6030 [143]  fornn=0to2500:nextnn
  141. 6040 [151]vv[170]6,240:[151]vv[170]5,0:[151]vv[170]4,0
  142. 6050 [151]vv[170]4,17
  143. 6060 [129]mm[178]150[164]0[169][171]1
  144. 6070 [129]nn[178]mm[164]50[171]mm
  145. 6080 [151]vv[170]1,nn
  146. 6090 [130]nn:[130]mm
  147. 6100 [151]vv[170]1,3
  148. 6150 [151]vv[170]6,0:[151]vv[170]5,5:[129]nn[178]3 [164]100[169]5
  149. 6160 [151]vv[170]1,nn:[151]vv[170]4,33
  150. 6170 [129]mm[178]1[164]40[171]0.25[172]nn:[130]mm
  151. 6180 [151]vv[170]4,0:[129]mm[178]1[164]120[171]nn:[130]mm
  152. 6190 [130]nn
  153. 6200 [151]vv[170]5,31:[151]vv[170]4,129
  154. 6210 [129]nn[178]40[164]200[169]0.1
  155. 6220 [151]vv[170]1,nn
  156. 6230 [130]nn
  157. 6240 [151]vv[170]4,0
  158. 6260 [142]
  159. 7000 [151] 54296,15:[151] 54295,0
  160. 7010 vv[178]54272:[151]vv[170]1,40
  161. 7020 [143] pokevv+6,0:pokevv+5,204:pokevv+4,0:pokevv+4,129
  162. 7030 [143]  fornn=0to2500:nextnn
  163. 7040 [151]vv[170]6,240:[151]vv[170]5,0:[151]vv[170]4,0
  164. 7050 [151]vv[170]4,17
  165. 7060 [129]mm[178] 20[164]0[169][171]1
  166. 7070 [129]nn[178]mm[164]70[171]mm
  167. 7080 [151]vv[170]1,nn
  168. 7090 [130]nn:[130]mm
  169. 7100 [151]vv[170]1,3
  170. 7105 [142]
  171. 8000 [153]"loadload"[199](34)"payload"[199](34)",8":[153]"run"
  172. 8002 [151]631,13:[151]632,13:[151]198,2
  173.